10 GOTO100
50 REM <YES>
51 S=54272:FORE=STOS+28:POKEE,0:NEXT
52 POKE54296,15:POKE54277,42:POKE54278,250
53 POKE54276,23:POKE54273,23:POKE54272,191
54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
55 POKE54296,0:RETURN
60 REM <N0>
61 S=54272:FORE=STOS+28:POKEE,0:NEXT
62 POKE54296,15:POKE54277,18:POKE54278,242
63 POKE54276,33:POKE54273,4:POKE54272,48
64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
65 POKE54296,0:RETURN
70 REM <BLIP>
71 S=54272:FORE=STOS+28:POKEE,0:NEXT
72 POKE54296,5:POKE54277,42:POKE54278,250
73 POKE54276,23:POKE54273,23:POKE54272,191
74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
75 POKE54296,0:RETURN
80 FORT=1TO500:NEXT:RETURN
81 FORT=1TO1000:NEXT:RETURN
82 FORT=1TO2000:NEXT:RETURN
83 FORT=1TO3000:NEXT:RETURN
84 FORT=1TO4000:NEXT:RETURN
85 FORT=1TO5000:NEXT:RETURN
90 GOSUB81:GOSUB70
91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
92 [161]R$:[139]R$[179][177][199](32)[167]92
93 [142]
95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
105 [153]"                                        WAIT";
110 [153]"                                        WAIT";
115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
120 [153]"                                        WAIT";
125 [153]"           CHR$RADE 4     (null)ART 1           WAIT";
130 [153]"                                        WAIT";
135 [153]"               (null)ESSON 17                WAIT";
140 [153]"                                        WAIT";
145 [153]"           CHR$ENERAL  (null)ROBLEMS  OPEN          WAIT";
150 [153]"                                        WAIT";
155 [153]"                                        WAIT"
160 [153]"                  WHC ONON"
165 [141]90
170 [153]"LOAD       ATNND AWAY WE GO......."
175 [141]81:[141]50:[141]80
200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
205 [153]"  MID$ACK'S FATHER HAD SEVEN GOLF BALLS
210 PRINT"  AT HOME.  [200]E BOUGHT A DOZEN MORE.
215 [153]"  LEFT$OW MANY GOLF BALLS HAD HE THEN?"
220 [141]81:[141]70
225 [153]"             ON"
230 [133] A$
240 [139]A$[179][177]"19"[167] 270
250 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
260 P[178]P[170]1:[137]300
270 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
275 [139]Z[178]2[167]G[178]G[170]1:[137]295
280 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
290 [153]"OPENONON                                        ONONONONONONON":[137]225
295 [153]"ONON  LEFT$IS FATHER HAD 19DEF GOLF BALLS.    ":[141]82
297 [153]"  7 + 12 = 19         ":[141]82:[141]90
300 [153]"LOAD               (null)UESTION 2 WAIT":Z[178]0
305 [153]"  (null)HERE WERE 27 FRUIT TREES ON THE .
310 PRINT"  FARM.  [193] STORM BLEW DOWN 5 OF THE
315 [153]"  TREES.  LEFT$OW MANY TREES WERE LEFT?"
320 [141]81:[141]70
325 [153]"             ON"
330 [133] A$
340 [139]A$[179][177]"22"[175]A$[179][177]"22 TREES"[167]370
350 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
360 P[178]P[170]1:[137]400
370 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
375 [139]Z[178]2 [167] G[178]G[170]1:[137]395
380 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
390 [153]"OPENONON                                        ONONONONONONON":[137]325
395 [153]"ONON  (null)HERE WERE 22DEF TREES LEFT.       ":[141]82
397 [153]"  27 - 5 = 22         ":[141]82:[141]90
400 [153]"LOAD               (null)UESTION 3 WAIT":Z[178]0
405 [153]"  ATN FARMER BOUGHT 72 TREES TO PLANT
410 PRINT"  ON HIS FARM.  [200]OW MANY TREES WILL
415 [153]"  HE PLANT IN ROW IF HE WANTS TO HAVE     6 EQUAL ROWS?"
420 [141]81:[141]70
425 [153]"             ON"
430 [133] A$
440 [139]A$[179][177]"12"[175]A$[179][177]"12 TREES" [167] 470
450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
460 P[178]P[170]1:[137]500
470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
475 [139]Z[178]2[167]G[178]G[170]1:[137]495
480 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
490 [153]"OPENONON                                        ONONONONONONON":[137]425
495 [153]"ONON  LEFT$E WILL PLANT 12DEF TREES N A ROW. ":[141]82
497 [153]"  72 / 6 = 12         ":[141]82:[141]90
500 [153]"LOAD               (null)UESTION 4 WAIT":Z[178]0
505 [153]"  (null)HEN ASCEBRUARY HAS 28 DAYS, HOW MANY
510 PRINT"  DAYS ARE THERE IN THE FIRST THREE
515 [153]"  MONTHS OF THE YEAR?"
520 [141]81:[141]70
525 [153]"             ON"
530 [133] A$
540 [139]A$[179][177]"90"[167] 570
550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
560 P[178]P[170]1:[137]600
570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
575 [139]Z[178]2[167]G[178]G[170]1:[137]595
580 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
590 [153]"OPENONON                                        ONONONONONONON":[137]525
595 [153]"ONON  (null)HERE ARE 90DEF DAYS.              ":[141]82
597 [153]"  31 + 28 + 31 = 90   ":[141]82:[141]90
600 [153]"LOAD               (null)UESTION 5 WAIT":Z[178]0
605 [153]"  (null)AUL'S DESK IS 65 CENTIMETRES HIGH.
610 PRINT"  [200]OW MUCH LESS THAN A METRE IS THAT?     (IN CM)   
620 [141]81:[141]70
625 [153]"             ON"
630 [133] A$
640 [139]A$[179][177]"35"[175]A$[179][177]"35CM"[175]A$[179][177]"35 CM"[167] 670
650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
660 P[178]P[170]1:[137]700
670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
675 [139]Z[178]2[167]G[178]G[170]1:[137]695
680 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
690 [153]"OPENONON                                        ONONONONONONON":[137]625
695 [153]"ONON  (null)HE ANSWER IS 35DEFCM.            ":[141]82
697 [153]"  100- 65 = 35        ":[141]82:[141]90
700 [153]"LOAD               (null)UESTION 6 WAIT":Z[178]0
705 [153]"  RIGHT$F YOU HAD A METRE OF RIBBON, INTO
710 PRINT"  HOW MANY PIECES 20 CENTIMETRES LONG
715 [153]"  CAN IT BE CUT?"
720 [141]81:[141]70
725 [153]"             ON"
730 [133] A$
740 [139]A$[179][177]"5"[167] 770
750 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
760 P[178]P[170]1:[137]800
770 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
775 [139]Z[178]2[167] G[178]G[170]1:[137]795
780 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
790 [153]"OPENONON                                        ONONONONONONON":[137]725
795 [153]"ONON  RIGHT$T CAN BE CUT INTO 5DEF PIECES.    ":[141]82
797 [153]"  100 / 20 = 5        ":[141]82:[141]90
800 [153]"LOAD               (null)UESTION 7 WAIT":Z[178]0
805 [153]"  (null)OM'S UNCLE SET OUT 15 ROWS OF TREES
810 PRINT"  ON HIS FARM, 8 TREES IN A ROW.
815 [153]"  LEFT$OW MANY TREES WERE PLANTED?"
820 [141]81:[141]70
825 [153]"             ON"
830 [133] A$
840 [139]A$[179][177]"120"[175]A$[179][177]"120 TREES" [167] 870
850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
860 P[178]P[170]1:[137]900
870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
875 [139]Z[178]2[167] G[178]G[170]1:[137]895
880 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
890 [153]"OPENONON                                        ONONONONONONON":[137]825
895 [153]"ONON  LEFT$E PLANTED 120DEF TREES.           ":[141]82
897 [153]"  15 X 8 = 120        ":[141]82:[141]90
900 [153]"LOAD               (null)UESTION 8 WAIT":Z[178]0
905 [153]"  RIGHT$F A METRE OF CLOTH COSTS 92 CENTS,
910 PRINT"  FIND THE COST OF A QUARTER OF A         METRE?  (IN CENTS)"
920 GOSUB81:GOSUB70
925 PRINT"             [145]"
930 INPUT A$
940 IFA$<>"23"ANDA$<>"23 CENTS" THEN 970
950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
960 P=P+1:GOTO1000
970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
975 IFZ=2THEN G=G+1:GOTO995
980 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
990 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO925
995 PRINT"[145][145]  [193] QUARTER OF A METER COSTS 23[150] CENTS.":GOSUB82
997 PRINT"  92 / 4 = 23         ":GOSUB82:GOSUB90
1000 PRINT"[147]               [209]UESTION 9 [146]":Z=0
1005 PRINT"  [205]ARY PAID 93 CENTS FOR 3 LITRES
1010 [153]"  OF JUICE.  (null)HAT WAS THE PRICE PER       LITRE?   (IN CENTS) "
1020 [141]81:[141]70
1025 [153]"             ON"
1030 [133] A$
1040 [139]A$[179][177]"31"[175]A$[179][177]"31 CENTS" [167] 1070
1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
1060 P[178]P[170]1:[137]1100
1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1075 [139]Z[178]2[167] G[178]G[170]1:[137]1095
1080 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
1090 [153]"OPENONON                                        ONONONONONONON":[137]1025
1095 [153]"ONON  (null)HE PRICE PER LITRE IS 31DEF CENTS.":[141]82
1097 [153]"  93 / 3 = 31         ":[141]82:[141]90
1100 [153]"OPENLOAD               (null)UESTION 10 WAIT":Z[178]0
1105 [153]"  (null)WO YEARS AGO LEFT$UGH WEIGHED 37KG.
1110 PRINT"  [200]E NOW WEIGHS 51KG.  [200]OW MUCH HAS       HE GAINED?  (IN KG) "
1120 GOSUB81:GOSUB70
1125 PRINT"             [145]"
1130 INPUT A$
1140 IFA$<>"14 KG"ANDA$<>"14"THEN 1170
1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
1160 GOTO1200
1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
1175 IFZ=2THEN G=G+1:GOTO1195
1180 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
1190 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1125
1195 PRINT"[145][145]  [200]UGH GAINED 14[150]KG.           ":GOSUB82
1197 PRINT"  51 - 37 = 14        ":GOSUB82:GOSUB90
1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
1205 D=W-G:C=10-W
1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
1215 [153]"                 ";C
1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
1225 PRINT"                 ";D
1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
1235 [153]"                 ";G;""
1245 [141]90
1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
1270 [139]R$[178]"R"[167][140]:[137]100
1280 [153]"LOAD (null)ETURNING TO THE MENU
1285 LOAD"MENU",8
1290 RUN
1295 END
1300 REM BILL CUMBERLAND 90:10:28